home *** CD-ROM | disk | FTP | other *** search
/ More Than a Handful 5 / More THan a Handful 5.iso / mac / INSTALL.DAT < prev    next >
Text File  |  1995-04-17  |  3KB  |  121 lines
  1. /*
  2.  INSTALL.DAT
  3.  
  4.  Project: Arcus
  5.  Version: 1.0
  6.  
  7. */
  8.  
  9. @DefineProject
  10.     @name = "Arcus"
  11.     @Version = "1.0"
  12.     @SubDir = "\\arcus" 
  13.     @OutDrive = C
  14.     
  15. @EndProject
  16.  
  17. @DefineVars
  18.     @Integer @program       = 16
  19.     @Integer @qtw           = 1
  20.     @Integer @TSIZE      = @Eval(@program)
  21.     @Integer @Red        = @RGB(255,0,0)             //DEFINE COLOR RED
  22.     @Integer @Green      = @RGB(0,255,0)             //DEFINE COLOR GREEN
  23.     @Integer @Blue       = @RGB(0,0,255)             //DEFINE COLOR BLUE
  24.     @Integer @Black      = @RGB(0,0,0)               //DEFINE COLOR BLACK
  25.     @Drive @QTWDrive = C
  26.     @Dir @QTWDirectory = "\\QTW\\BIN"
  27.     @Qstring @CDLetter = "@StartupDrive"
  28. @EndVars
  29.  
  30. @BackgroundMode(3,@Blue,@Black)
  31.  
  32.  
  33. @Display@Cls@!This program installs the @Name Media Player on your hard drive.  
  34. To continue, choose "OK".     To quit, choose "Cancel".@Pause@Enddisplay
  35.  
  36. @SetOption(1001)  
  37. @SetOption(1002)
  38.  
  39. LOOP:
  40. @BackgroundMode(3,@Blue,@Black)
  41.  
  42.  
  43. @DlgCtrlSize(0,3,5,6,40)  // set coordinates & size of list box
  44. @GetGroups @Checkbox@!Select Programs to install:
  45.   
  46.     @Set S = "Install @Name"
  47.     @Set Q = "Install Quicktime for Windows 2.0" @SetGroup(S) @SetGroup(Q) @EndGroups
  48.  
  49. @If('S' [! @Group)
  50.     @If('Q' [! @Group)
  51.         @Display
  52.         You have not selected any programs to install.        
  53.         @Pause
  54.         @Abort
  55.         @EndDisplay
  56.     @EndIf
  57. @EndIf
  58. NEWDRIVE:  // Goto label for reselecting drive
  59.  
  60. //@BackgroundMode(3,@Blue,@Black)
  61. @If ('S' [= @Group) @program = 16 @Else @program = 0 @EndIf //if group not selected zero out
  62. @If ('Q' [= @Group) @qtw = 1  @Else @qtw =  0 @EndIf //if group not selected zero out
  63.  
  64.  
  65. @TSIZE = @Eval((@program))   // add selected options' size requirements
  66.  
  67. // if total size > free space, then display
  68. // blue background and set default to loop back and select again.
  69.  
  70. @If(@TSIZE*1024 > @DiskFree(@QTWDrive))
  71. //@BackgroundMode(3,@Blue,@Black)
  72.     @Display
  73.         The drive you have selected does not have
  74.         enough free space available.
  75.         
  76.     @Pause
  77.     @EndDisplay
  78.     @GOTO NEWDRIVE
  79. @EndIf  
  80.  
  81.  
  82. //@BackgroundMode(3,@Blue,@Black)
  83. @SetOption(1600) @ClearOption(1700)
  84.  
  85.  
  86. @DlgCtrlSize(0,8,12,11,35)
  87. @GetOption @Prompt = "Selected files summary"
  88. You have selected to install the following options.
  89.         @If(2200 [= @Option)@name -Will not be copied to hard drive. @Else @If ('S' [= @Group)@name            @program@!K @Else@name -WILL NOT BE INSTALLED @EndIf @EndIf
  90.         @If ('Q' [= @Group) Quicktime for Windows -Will be installed @Else Quicktime for Windows -WILL NOT BE INSTALLED @EndIf
  91.         
  92.  
  93.  You may:
  94. @Option 1600 = "CONTINUE"
  95. @Option 1700 = "RESELECT OPTIONS"
  96. @EndOption
  97.  
  98. @if (1700 [= @Option)
  99.     @Goto LOOP
  100. @EndIf
  101.  
  102. @If ('S' [= @Group)
  103. @DefineDisk
  104. @Label = "Arcus"
  105. @File 
  106. qtw\bin\arcus.dll            @OUT @WindowsDrive:\@WindowsDir\*.* @OVERWRITE @Group S @Size 16
  107. @EndDisk
  108. @ProgramManager("[CreateGroup(Arcus)][AddItem(@CDLetter:\\pc\\arcus.exe, Arcus, @WindowsDrive:\\@WindowsDir\\arcus.dll, 0)][AddItem(@StartupDrive:\\readme.wri, Ignore Me, @WindowsDrive:\\@WindowsDir\\arcus.dll, 1)][ShowGroup(Arcus, 1)]")
  109. @EndIf
  110. @Finish
  111.  
  112. @If(@BackgroundMode(3,@Blue,@Black))@EndIf@Cls
  113.  
  114. @If ('Q' [= @Group) 
  115.     @WinExec("@CDLetter:\\qtw\\setup.exe", 3)
  116. @EndIf //if group not selected zero out
  117.  
  118. @Exit
  119. @EndFinish 
  120. // end-of-file
  121.